;; ================================

;;本节内容由王成军提供，田憬源整理。

;; 1. 设置智能体和区域属性
;;turtles-own表示智能体可以成为参考群体，拥有表达意愿
;;patches-own表示区域可以成为大众媒体
;;globals为全局变量，表示意见改变量和沉默的群体两个属性作用于全局，不需要在例程中单独设置

;; ================================

;;设置智能体属性
turtles-own  ;;智能体具有如下属性
  [
  flockmates  ;;智能体具有参考群体属性
  willingness-to-express  ;;智能体具有表达意愿属性
  ]

;;设置区域属性
patches-own  ;;区域具有如下属性
  [
  patchmates  ;;区域具有
  media  ;;区域具有大众媒体属性
  ]

;;设置全局属性
globals  ;;全局属性如下所示
[marginal-change  ;;设置智能体的意见改变量为全局属性
   silent-people  ;;设置沉默的群体为全局属性
]

;; ================================

;;2. 初始化模型（setup）
;;清空环境后创建population数量的智能体，设置初始形态、位置
;;设置区域颜色，并且根据media-amplifier设置大众媒体影响
;;设置智能体的初始表达意愿值

;; ================================

;;初始化模型，设置智能体和区域属性
to setup
  clear-all  ;;重置模型状态
  crt population  ;;创建智能体，可以依据页面人口数量来调整智能体数量
   [
    set color green  ;;设置智能体初始颜色为绿色，代表均有表达意愿
    setxy random-xcor random-ycor  ;;设置智能体随机分布在全局区域
    set shape "person student"  ;;设置智能体初始形状为“学生”
    set size 1.2  ;;设置智能体尺寸
   ]

  ask patches  ;;要求区域执行设置大众媒体的指令
   [ set pcolor random-float 1.5  ;;设置区域颜色为[0, 1.5]内随机浮点数对应的随机颜色
     set media (random -5 ) * media-amplifier  ;;设置大众媒体影响为扩大效应系数×[-4, 0]内均匀分布的随机数.，其中扩大效应系数可以在页面调整
   ]

  ask turtles  ;;要求智能体执行设置表达意愿的指令
   [
    set willingness-to-express random-normal 0 1  ;;设置智能体初始表达意愿值为[-1,1]之间呈正态分布的随机数
   ]
end  ;;结束初始化模型

;; ================================

;;3. 主例程（go）
;;重置时间步（ticks）后循环运行
;;要求智能体根据参考群体改变意见表达意愿，改变智能体颜色，统计沉默的群体数量，根据沉默的群体数量决定是否停止运行，根据智能体颜色绘制图表

;; ================================

;;运行模型，通过大众媒体和参考群体影响智能体表达意愿，其中各子例程均为运行中执行
to go
 ask turtles [ surveillance ] ;;要求智能体执行监视指令
  reset-ticks  ;;重置时间步
  show count turtles with [willingness-to-express >= 0]  ;;显示具有表达意愿的智能体实时数量
  set silent-people count turtles with [willingness-to-express < 0]  ;;统计没有表达意愿的智能体数量，并将数量赋值给沉默的群体数量
  ask turtles [recolor]  ;;要求智能体改变颜色
  ask turtles [stop]  ;;要求智能体在每一时间步后均停止运行，随着reset-ticks而重新开始
   if (silent-people = population)  ;;如果沉默的群体数量等于总人口数量，模型停止运行
    [stop] ;;模型停止运行
   if (silent-people = 0)  ;;如果沉默的群体数量等于0，既全部智能体均转化为表达的群体，模型停止运行
    [stop]  ;;模型停止运行
  do-plots  ;;执行绘图指令
end  ;;结束程序运行

;; ================================

;;4. 子例程（find-flockmates：找到参考群体）
;;智能体根据视野半径寻找参考群体

;; ================================

;;模型运行后，要求智能体执行寻找参考群体指令
to find-flockmates  ;;寻找参考群体
  set flockmates other turtles in-radius vision  ;;设置参考群体为视野半径内的智能体，视野半径可以在页面调整
end  ;;结束寻找参考群体指令

;; ================================

;;5. 子例程（surveillance：改变并更新智能体表达意愿）
;;先找到参考群体，然后根据大众媒体影响、参考群体影响改变智能体表达意愿
;;实时更新智能体表达意愿值

;; ================================

;;模型运行后，要求智能体执行监视指令
to surveillance  ;;监视参考群体
  find-flockmates  ;;先找到参考群体
  if any? flockmates  ;;如果有参考群体，执行以下操作
    [
        let mass-media sum [media] of patch-set [neighbors4] of patch-here  ;;设置大众媒体影响量为所在区域的上、下、左、右4个区域媒体影响量总和
        let reference-group sum [willingness-to-express] of flockmates  ;;设置参考群体影响量为已找到的参考群体影响量总和
        set marginal-change  alpha-media * mass-media + beta-reference-group * reference-group  ;;设置智能体意见改变量为大众媒体影响量×大众媒体影响系数+参考群体影响量×参考群体影响系数，其中各系数均可以在页面调整
        set willingness-to-express willingness-to-express + marginal-change
]  ;;设置智能体实时表达意愿值为初始表达意愿值+意见改变量
end  ;;结束监视指令

;; ================================

;;6. 子例程（recolor：改变智能体颜色和形状）
;;如果智能体表达意愿大于等于0，则保持绿色，为表达的群体
;;如果智能体表达意愿小于0，则变为红色并且改变形状，为沉默的群体

;; ================================

;;模型运行后，要求智能体执行改变颜色指令
to recolor  ;;改变智能体颜色
  ifelse willingness-to-express >= 0  ;;如果智能体实时表达意愿大于等于0，则执行保持绿色的指令，否则则改变颜色为红色
    [set color green]  ;;智能体有表达意愿，则保持颜色为绿色，不改变形状，代表“表达”状态
    [set color red
      set shape "person"]  ;;如果智能体无表达意愿，则改变颜色为红色，并且将形状改变为“公民”形状，代表“沉默”状态
end  ;;结束改变颜色指令

;; ================================

;;7. 子例程（do-plots：根据运行结果绘制图表）
;;在表示沉默的螺旋效应图表中，红色画笔为沉默的群体人数，绿色画笔为表达的群体人数
;;在表示意见改变量的图表中，对意见改变量赋予放大系数以便可视化

;; ================================

;;模型运行结束后，执行绘图指令
to do-plots  ;;根据模型结果实时绘图
set-current-plot "Spiral of Silence"  ;;设置表示沉默的螺旋效应的图表，即沉默的群体和表达的群体的数量变化
set-current-plot-pen "silent people"  ;;设置代表沉默的群体的画笔
plot count turtles with [color = red]  ;;代表沉默的群体的画笔统计红色智能体的数量，即沉默的群体的数量
set-current-plot-pen "talking people"  ;;设置代表表达的群体的画笔
plot count turtles with [color = green]  ;;代表表达的群体的画笔统计绿色智能体的数量，即表达的群体的数量

set-current-plot "Marginal Change"  ;;设置表示意见改变量的图表
set-current-plot-pen "marginal-change"  ;;设置代表意见改变量的画笔
plot marginal-change * 10000  ;;意见改变量比较微小，需要赋予系数以方便可视化
end ;;结束绘图指令
@#$#@#$#@
GRAPHICS-WINDOW
457
28
972
518
-1
-1
13.0
1
10
1
1
1
0
1
1
1
-19
19
-18
18
1
1
1
ticks
30.0

BUTTON
274
20
329
53
setup
setup
NIL
1
T
OBSERVER
NIL
NIL
NIL
NIL
1

BUTTON
392
21
447
54
go
go
T
1
T
OBSERVER
NIL
NIL
NIL
NIL
1

MONITOR
276
146
447
195
talking people
count turtles with [willingness-to-express >= 0]
17
1
12

SLIDER
276
106
448
139
vision
vision
0
10
3.0
1
1
patches
HORIZONTAL

SLIDER
276
63
450
96
population
population
0
2000
1006.0
1
1
persons
HORIZONTAL

PLOT
59
203
442
396
Spiral of Silence
time
Number
0.0
10.0
0.0
300.0
true
true
"" ""
PENS
"silent people" 1.0 0 -2674135 true "" ""
"talking people" 1.0 0 -10899396 true "" ""

SLIDER
56
447
438
480
alpha-media
alpha-media
0
0.01
0.001
0.0001
1
NIL
HORIZONTAL

SLIDER
57
492
440
525
media-amplifier
media-amplifier
1
100
5.0
1
1
NIL
HORIZONTAL

SLIDER
56
405
436
438
beta-reference-group
beta-reference-group
0
0.01
0.01
0.0001
1
NIL
HORIZONTAL

BUTTON
333
20
388
53
go once
go
NIL
1
T
OBSERVER
NIL
NIL
NIL
NIL
1

PLOT
62
22
271
192
Marginal Change
time
marginal-change
0.0
10.0
0.0
10.0
true
false
"" ""
PENS
"marginal-change" 1.0 0 -13345367 true "" ""

@#$#@#$#@
## WHAT IS IT?

This model is created by WANG Chengjun,who focused on the simulation of the spiral of silence theory which is very extensive grand theory.

## HOW IT WORKS

Von-Neumann assumed that everyone will be influenced by the media and his social network,everyone who thought their opinion is not a dominate one will fear of being
isolated by the society,so they keep silent,on the contrary,the people who think they are holding the dominate ideas will tend to speak out.

So everyone will be influenced by other people,and this causes the emergence of spiral silence.

## HOW TO USE IT

You can moderate the coefficients,control three of their values zero,and oberserve the influence of the forth coefficient on the public opinion.

## THINGS TO NOTICE

When you keep the other three coefficients zero(bmedia-opinion-atmosphere, bsocial-isolation-sense ,bexpression-tendency ),but keep the bpersonal-opinion-property equals 0.001,then you can find a neck-to-neck dead lock rather than spiral of silence.

## THINGS TO TRY

Try to moderate the vison,which controls how many neighbours everyone will monitor to get an idea of the dominate opinion.

## EXTENDING THE MODEL

Netologo restrict the turtles' neibours numbers,but the real network in our daily life is power law,so maybe I will do some mederation latter.

## NETLOGO FEATURES

I think the automatic halt and reminding is cool.

## CREDITS AND REFERENCES

This model is created by WANG Chengjun,who focused on the simulation of the spiral of silence theory which is very extensive grand theory.
Having anything confued on this model,free free to contact me:
wangchj04@gmail.com
Ph.D Candidate
Web Mining Lab
Department of Media and Communication
City university of Hong kong.
Room 105D,Hall 8, City university of Hong kong,
83 Tat Chee Avenue,kowloon.Hong Kong.
Email: wangchj04@gmail.com;
UniversityEmail: chengwang6@student.cityu.edu.hk
Mobile:96442905   Tel:34423580
@#$#@#$#@
default
true
0
Polygon -7500403 true true 150 5 40 250 150 205 260 250

airplane
true
0
Polygon -7500403 true true 150 0 135 15 120 60 120 105 15 165 15 195 120 180 135 240 105 270 120 285 150 270 180 285 210 270 165 240 180 180 285 195 285 165 180 105 180 60 165 15

arrow
true
0
Polygon -7500403 true true 150 0 0 150 105 150 105 293 195 293 195 150 300 150

box
false
0
Polygon -7500403 true true 150 285 285 225 285 75 150 135
Polygon -7500403 true true 150 135 15 75 150 15 285 75
Polygon -7500403 true true 15 75 15 225 150 285 150 135
Line -16777216 false 150 285 150 135
Line -16777216 false 150 135 15 75
Line -16777216 false 150 135 285 75

bug
true
0
Circle -7500403 true true 96 182 108
Circle -7500403 true true 110 127 80
Circle -7500403 true true 110 75 80
Line -7500403 true 150 100 80 30
Line -7500403 true 150 100 220 30

butterfly
true
0
Polygon -7500403 true true 150 165 209 199 225 225 225 255 195 270 165 255 150 240
Polygon -7500403 true true 150 165 89 198 75 225 75 255 105 270 135 255 150 240
Polygon -7500403 true true 139 148 100 105 55 90 25 90 10 105 10 135 25 180 40 195 85 194 139 163
Polygon -7500403 true true 162 150 200 105 245 90 275 90 290 105 290 135 275 180 260 195 215 195 162 165
Polygon -16777216 true false 150 255 135 225 120 150 135 120 150 105 165 120 180 150 165 225
Circle -16777216 true false 135 90 30
Line -16777216 false 150 105 195 60
Line -16777216 false 150 105 105 60

car
false
0
Polygon -7500403 true true 300 180 279 164 261 144 240 135 226 132 213 106 203 84 185 63 159 50 135 50 75 60 0 150 0 165 0 225 300 225 300 180
Circle -16777216 true false 180 180 90
Circle -16777216 true false 30 180 90
Polygon -16777216 true false 162 80 132 78 134 135 209 135 194 105 189 96 180 89
Circle -7500403 true true 47 195 58
Circle -7500403 true true 195 195 58

circle
false
0
Circle -7500403 true true 0 0 300

circle 2
false
0
Circle -7500403 true true 0 0 300
Circle -16777216 true false 30 30 240

cow
false
0
Polygon -7500403 true true 200 193 197 249 179 249 177 196 166 187 140 189 93 191 78 179 72 211 49 209 48 181 37 149 25 120 25 89 45 72 103 84 179 75 198 76 252 64 272 81 293 103 285 121 255 121 242 118 224 167
Polygon -7500403 true true 73 210 86 251 62 249 48 208
Polygon -7500403 true true 25 114 16 195 9 204 23 213 25 200 39 123

cylinder
false
0
Circle -7500403 true true 0 0 300

dot
false
0
Circle -7500403 true true 90 90 120

face happy
false
0
Circle -7500403 true true 8 8 285
Circle -16777216 true false 60 75 60
Circle -16777216 true false 180 75 60
Polygon -16777216 true false 150 255 90 239 62 213 47 191 67 179 90 203 109 218 150 225 192 218 210 203 227 181 251 194 236 217 212 240

face neutral
false
0
Circle -7500403 true true 8 7 285
Circle -16777216 true false 60 75 60
Circle -16777216 true false 180 75 60
Rectangle -16777216 true false 60 195 240 225

face sad
false
0
Circle -7500403 true true 8 8 285
Circle -16777216 true false 60 75 60
Circle -16777216 true false 180 75 60
Polygon -16777216 true false 150 168 90 184 62 210 47 232 67 244 90 220 109 205 150 198 192 205 210 220 227 242 251 229 236 206 212 183

fish
false
0
Polygon -1 true false 44 131 21 87 15 86 0 120 15 150 0 180 13 214 20 212 45 166
Polygon -1 true false 135 195 119 235 95 218 76 210 46 204 60 165
Polygon -1 true false 75 45 83 77 71 103 86 114 166 78 135 60
Polygon -7500403 true true 30 136 151 77 226 81 280 119 292 146 292 160 287 170 270 195 195 210 151 212 30 166
Circle -16777216 true false 215 106 30

flag
false
0
Rectangle -7500403 true true 60 15 75 300
Polygon -7500403 true true 90 150 270 90 90 30
Line -7500403 true 75 135 90 135
Line -7500403 true 75 45 90 45

flower
false
0
Polygon -10899396 true false 135 120 165 165 180 210 180 240 150 300 165 300 195 240 195 195 165 135
Circle -7500403 true true 85 132 38
Circle -7500403 true true 130 147 38
Circle -7500403 true true 192 85 38
Circle -7500403 true true 85 40 38
Circle -7500403 true true 177 40 38
Circle -7500403 true true 177 132 38
Circle -7500403 true true 70 85 38
Circle -7500403 true true 130 25 38
Circle -7500403 true true 96 51 108
Circle -16777216 true false 113 68 74
Polygon -10899396 true false 189 233 219 188 249 173 279 188 234 218
Polygon -10899396 true false 180 255 150 210 105 210 75 240 135 240

ghost
false
0
Polygon -7500403 true true 30 165 13 164 -2 149 0 135 -2 119 0 105 15 75 30 75 58 104 43 119 43 134 58 134 73 134 88 104 73 44 78 14 103 -1 193 -1 223 29 208 89 208 119 238 134 253 119 240 105 238 89 240 75 255 60 270 60 283 74 300 90 298 104 298 119 300 135 285 135 285 150 268 164 238 179 208 164 208 194 238 209 253 224 268 239 268 269 238 299 178 299 148 284 103 269 58 284 43 299 58 269 103 254 148 254 193 254 163 239 118 209 88 179 73 179 58 164
Line -16777216 false 189 253 215 253
Circle -16777216 true false 102 30 30
Polygon -16777216 true false 165 105 135 105 120 120 105 105 135 75 165 75 195 105 180 120
Circle -16777216 true false 160 30 30

house
false
0
Rectangle -7500403 true true 45 120 255 285
Rectangle -16777216 true false 120 210 180 285
Polygon -7500403 true true 15 120 150 15 285 120
Line -16777216 false 30 120 270 120

leaf
false
0
Polygon -7500403 true true 150 210 135 195 120 210 60 210 30 195 60 180 60 165 15 135 30 120 15 105 40 104 45 90 60 90 90 105 105 120 120 120 105 60 120 60 135 30 150 15 165 30 180 60 195 60 180 120 195 120 210 105 240 90 255 90 263 104 285 105 270 120 285 135 240 165 240 180 270 195 240 210 180 210 165 195
Polygon -7500403 true true 135 195 135 240 120 255 105 255 105 285 135 285 165 240 165 195

line
true
0
Line -7500403 true 150 0 150 300

line half
true
0
Line -7500403 true 150 0 150 150

pentagon
false
0
Polygon -7500403 true true 150 15 15 120 60 285 240 285 285 120

person
false
0
Circle -7500403 true true 110 5 80
Polygon -7500403 true true 105 90 120 195 90 285 105 300 135 300 150 225 165 300 195 300 210 285 180 195 195 90
Rectangle -7500403 true true 127 79 172 94
Polygon -7500403 true true 195 90 240 150 225 180 165 105
Polygon -7500403 true true 105 90 60 150 75 180 135 105

person student
false
0
Polygon -13791810 true false 135 90 150 105 135 165 150 180 165 165 150 105 165 90
Polygon -7500403 true true 195 90 240 195 210 210 165 105
Circle -7500403 true true 110 5 80
Rectangle -7500403 true true 127 79 172 94
Polygon -7500403 true true 105 90 120 195 90 285 105 300 135 300 150 225 165 300 195 300 210 285 180 195 195 90
Polygon -1 true false 100 210 130 225 145 165 85 135 63 189
Polygon -13791810 true false 90 210 120 225 135 165 67 130 53 189
Polygon -1 true false 120 224 131 225 124 210
Line -16777216 false 139 168 126 225
Line -16777216 false 140 167 76 136
Polygon -7500403 true true 105 90 60 195 90 210 135 105

plant
false
0
Rectangle -7500403 true true 135 90 165 300
Polygon -7500403 true true 135 255 90 210 45 195 75 255 135 285
Polygon -7500403 true true 165 255 210 210 255 195 225 255 165 285
Polygon -7500403 true true 135 180 90 135 45 120 75 180 135 210
Polygon -7500403 true true 165 180 165 210 225 180 255 120 210 135
Polygon -7500403 true true 135 105 90 60 45 45 75 105 135 135
Polygon -7500403 true true 165 105 165 135 225 105 255 45 210 60
Polygon -7500403 true true 135 90 120 45 150 15 180 45 165 90

square
false
0
Rectangle -7500403 true true 30 30 270 270

square 2
false
0
Rectangle -7500403 true true 30 30 270 270
Rectangle -16777216 true false 60 60 240 240

star
false
0
Polygon -7500403 true true 151 1 185 108 298 108 207 175 242 282 151 216 59 282 94 175 3 108 116 108

target
false
0
Circle -7500403 true true 0 0 300
Circle -16777216 true false 30 30 240
Circle -7500403 true true 60 60 180
Circle -16777216 true false 90 90 120
Circle -7500403 true true 120 120 60

tree
false
0
Circle -7500403 true true 118 3 94
Rectangle -6459832 true false 120 195 180 300
Circle -7500403 true true 65 21 108
Circle -7500403 true true 116 41 127
Circle -7500403 true true 45 90 120
Circle -7500403 true true 104 74 152

triangle
false
0
Polygon -7500403 true true 150 30 15 255 285 255

triangle 2
false
0
Polygon -7500403 true true 150 30 15 255 285 255
Polygon -16777216 true false 151 99 225 223 75 224

truck
false
0
Rectangle -7500403 true true 4 45 195 187
Polygon -7500403 true true 296 193 296 150 259 134 244 104 208 104 207 194
Rectangle -1 true false 195 60 195 105
Polygon -16777216 true false 238 112 252 141 219 141 218 112
Circle -16777216 true false 234 174 42
Rectangle -7500403 true true 181 185 214 194
Circle -16777216 true false 144 174 42
Circle -16777216 true false 24 174 42
Circle -7500403 false true 24 174 42
Circle -7500403 false true 144 174 42
Circle -7500403 false true 234 174 42

turtle
true
0
Polygon -10899396 true false 215 204 240 233 246 254 228 266 215 252 193 210
Polygon -10899396 true false 195 90 225 75 245 75 260 89 269 108 261 124 240 105 225 105 210 105
Polygon -10899396 true false 105 90 75 75 55 75 40 89 31 108 39 124 60 105 75 105 90 105
Polygon -10899396 true false 132 85 134 64 107 51 108 17 150 2 192 18 192 52 169 65 172 87
Polygon -10899396 true false 85 204 60 233 54 254 72 266 85 252 107 210
Polygon -7500403 true true 119 75 179 75 209 101 224 135 220 225 175 261 128 261 81 224 74 135 88 99

turtle 2
true
0
Polygon -10899396 true false 132 85 134 64 130 57 132 32 151 22 171 33 173 57 169 65 172 87
Polygon -10899396 true false 165 210 195 210 240 240 240 255 210 285 195 255
Polygon -10899396 true false 90 210 60 240 60 255 90 285 105 255 120 210
Polygon -7500403 true true 119 75 179 75 209 101 224 135 209 225 155 275 143 275 89 225 74 135 88 99
Polygon -16777216 true false 151 21 142 26 159 26
Line -16777216 false 160 35 164 51
Polygon -16777216 true false 161 38 162 46 167 45
Line -16777216 false 169 63 156 69
Line -16777216 false 134 64 144 69
Line -16777216 false 143 69 156 69
Polygon -16777216 true false 139 38 138 46 133 45
Line -16777216 false 140 35 136 51
Polygon -10899396 true false 195 90 225 75 255 75 270 90 285 120 285 150 240 105 225 105 210 105
Polygon -10899396 true false 105 90 75 75 45 75 30 90 15 120 15 150 60 105 75 105 90 105

wheel
false
0
Circle -7500403 true true 3 3 294
Circle -16777216 true false 30 30 240
Line -7500403 true 150 285 150 15
Line -7500403 true 15 150 285 150
Circle -7500403 true true 120 120 60
Line -7500403 true 216 40 79 269
Line -7500403 true 40 84 269 221
Line -7500403 true 40 216 269 79
Line -7500403 true 84 40 221 269

x
false
0
Polygon -7500403 true true 270 75 225 30 30 225 75 270
Polygon -7500403 true true 30 75 75 30 270 225 225 270
@#$#@#$#@
NetLogo 6.4.0
@#$#@#$#@
@#$#@#$#@
@#$#@#$#@
@#$#@#$#@
@#$#@#$#@
default
0.0
-0.2 0 0.0 1.0
0.0 1 1.0 0.0
0.2 0 0.0 1.0
link direction
true
0
Line -7500403 true 150 150 90 180
Line -7500403 true 150 150 210 180
@#$#@#$#@
0
@#$#@#$#@
